home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / netbon.zip / TESTQUE3.PAS < prev    next >
Pascal/Delphi Source File  |  1991-09-05  |  875b  |  44 lines
  1. {
  2.   TESTQUE3 - Program to test NetWare QMS functions
  3.              by Richard S. Sadowsky
  4.  
  5.   This program destroys (deletes) the queue created by TESTQUE.
  6. }
  7. program TestQue3;
  8. uses
  9.   {$IFDEF Windows}
  10.   TpString,
  11.   WinCrt,
  12.   {$ELSE}
  13.   OpString,
  14.   {$ENDIF}
  15.   NetBind,
  16.   NetQue;
  17.  
  18. const
  19.   OurQueName = 'RICH_Q';
  20.  
  21. var
  22.   HasProp : Boolean;
  23.   QueueID : LongInt;
  24.   Result         : Byte;
  25.   ObjectType,
  26.   Num,
  27.   JobNo          : Word;
  28.   ObjectFlag,
  29.   ObjectSec,
  30.   PropFlag       : Byte;
  31.   QueueName : ObjNameStr;
  32.  
  33. begin
  34.   ObjectType := bindJobQueue;
  35.   QueueName := OurQueName;
  36.   Result := ScanObject(ObjectType, QueueName, QueueID, ObjectFlag,
  37.                        ObjectSec, HasProp);
  38.   if Result = 0 then
  39.     WriteLn('Result of destroy queue: ',
  40.             HexB(DestroyQueue(QueueID)))
  41.   else
  42.     WriteLn(OurQueName, ' not found');
  43. end.
  44.